Public Const FF_DECORATIVE = 80 ' Old English, etc.
Public Const FF_DONTCARE = 0 ' Don't care or don't know.
Public Const FF_MODERN = 48 ' Constant stroke width, serifed or sans-serifed.
Public Const FF_ROMAN = 16 ' Variable stroke width, serifed.
Public Const FF_SCRIPT = 64 ' Cursive, etc.
Public Const FF_SWISS = 32 ' Variable stroke width, sans-serifed.
#If Win32 Then ' 32-bit VB.
Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal i As Long, ByVal U As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
#Else ' 16-bit VB.
Declare Function CreateFont Lib "GDI" (ByVal H As Integer, ByVal W As Integer, ByVal E As Integer, ByVal O As Integer, ByVal W As Integer, ByVal i As Integer, ByVal U As Integer, ByVal S As Integer, ByVal C As Integer, ByVal OP As Integer, ByVal CP As Integer, ByVal Q As Integer, ByVal PAF As Integer, ByVal F As String) As Integer
Declare Function SelectObject Lib "GDI" (ByVal hdc As Integer, ByVal hObject As Integer) As Integer
Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer